home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1988 May
/
64er_Magazin_88-05_1988_Markt__Technik_de_Side_A.d64
/
fader demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
40 lines
10 ifa=0thena=1:load"fader",8,1
20 print"[147]bitte warten, spritedaten werden geles.":poke53281,0:poke53280,0
30 data ,,,,,,,,,,,80,,,80,63,252,,255,255,240,255,188,48,255,188,48,255,172
40 data 204,255,188,204,255,188,140,255,255,252,160,160,158,191,161,251,251
50 data 207,191,238,206,239,238,206,236,251,207,188,63,3,240,0,0,0
60 data 51,51,51,51,51,51,204,204,204,204,204,204,0,0,0,63,255,127,63,255,127
70 data 55,24,192,55,24,192,103,24,126,103,48,126,255,48,3,199,48,3,199,48,254
80 data 199,48,254,0,0,0,204,204,204,204,204,204,51,51,51,51,51,51,0,0,0
90 data0,60,0,0,60,0,0,235,0,0,235,0,3,170,192,3,86,192,14,70,176,14,86,176
100 data58,170,172,58,170,172,132,170,171,42,170,168,41,89,88,41,25,24,41,25,24,41
110 data89,24,42,169,24,42,169,24,42,169,24,42,169,24,42,169,24
120 v=53248:forx=12288to12288+62:reada:pokex,a:next
130 forx=12352to12352+62:reada:pokex,a:next
140 forx=12416to12416+62:reada:pokex,a:next
150 pokev+21,0:pokev+28,16:pokev+23,0:pokev+29,0
160 print"[147]":poke2040,192:poke2041,193:poke2044,194
170 pokev,100:pokev+2,100:pokev+8,100:pokev+1,100:pokev+3,100:pokev+9,100
180 sys28960,0,30000,0
190 forx=0to1000:next
200 sys28672,1,0,30000,31000,0
210 forx=1to500:next
220 sys28672,0,1,30000,31000,0
230 forx=1to500:next
240 pokev+23,3:pokev+29,3
250 forx=1to500:next
260 sys28672,1,0,30000,31000,0
270 forx=1to500:next
280 sys28672,0,1,30000,31000,0
290 forx=1to500:next
300 pokev+23,0:pokev+29,0
310 forx=1to500:next
320 sys29162,0,30000,0
330 forx=1to500:next
340 sys28960,4,30000,0
350 forx=1to500:next
360 sys28672,1,4,30000,31000,0
370 forx=1to500:next
380 sys29162,1,30000,0
390 print"fertig !"